library(readxl)
slo_rainfall <- read_xlsx("2023-rainfall-slo.xlsx")
slo_rainfall_long <- slo_rainfall |>
mutate(across(Sunday:Saturday, na_if, y = "NA"),
across(Sunday:Saturday, as.numeric)
) |>
pivot_longer(cols = Sunday:Saturday,
names_to = "Day_of_Week",
values_to = "Daily_Rainfall")
slo_rainfall_long# A tibble: 35 × 3
Week Day_of_Week Daily_Rainfall
<dbl> <chr> <dbl>
1 1 Sunday 0
2 1 Monday 0.12
3 1 Tuesday 0
4 1 Wednesday 1.58
5 1 Thursday 0.91
6 1 Friday 0
7 1 Saturday 0.05
8 2 Sunday 0.27
9 2 Monday 4.26
10 2 Tuesday 0.43
# … with 25 more rows